PROG LOTTO

// Pick 5 between 1 and 69
// Pick 1 between 1 and 26

B=INDEX 69
P=RAND 26
W=ARRAY 5
C=1
WHILE C LE 5
DO
   R=RAND 69
   IF B(R) NE 0  
   THEN  
      W(C)=R
      B(R)=0
      C=C+1
   ENDI
ENDW
W,P
BARC INDEX 6
BARH .9x(W,P)
ENDP


